home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
test2.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
229b
|
18 lines
program main(input,output);
var
i: integer;
Begin
{ if true then
i := 3 mod 2
else
i := 3 * 2;
if i < 2
then i := i * i
else i := i+1;
}case 2*i of
1,2: i:= 1 ;
3: i:= 2 ;
else i:= 0 ;
end;
end.